home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 7 / FM Towns Free Software Collection 7.iso / data / dora / dorasetc.plp < prev    next >
Text File  |  1993-11-30  |  13KB  |  358 lines
  1. %selID1    {
  2.     %id1 TalkID1;%id2 TalkID2;%id3 TalkID3;%id4 TalkID4;%id5 TalkID5;
  3.     %cmT1 CMt1;%cmT2 CMt2;%cmT3 CMt3;%cmT4 CMt4;%cmT5 CMt5;
  4.     loop    ({
  5.         footnote({自動トークを発送したいID情報を入力して下さい});
  6.         SNDMSG({nyuryo_f.snd});
  7.         %a @plane(
  8.             {c自動トーク送信先ID情報入力(1/4)\n}|
  9.             {t送信先ID1    /xxxxxxxxxxxxxxxxxx\n}|
  10.             {s              / 検索 \n}|
  11.             {t コメント     /xxxxxxxxxxxxxxxxxxxx}|
  12.                     {xxxxxxxxxxxxxxxxxxxx\n}|
  13.             {t送信先ID2    /xxxxxxxxxxxxxxxxxx\n}|
  14.             {s              / 検索 \n}|
  15.             {t コメント     /xxxxxxxxxxxxxxxxxxxx}|
  16.                     {xxxxxxxxxxxxxxxxxxxx\n}|
  17.             {t送信先ID3    /xxxxxxxxxxxxxxxxxx\n}|
  18.             {s              / 検索 \n}|
  19.             {t コメント     /xxxxxxxxxxxxxxxxxxxx}|
  20.                     {xxxxxxxxxxxxxxxxxxxx\n}|
  21.             {t送信先ID4    /xxxxxxxxxxxxxxxxxx\n}|
  22.             {s              / 検索 \n}|
  23.             {t コメント     /xxxxxxxxxxxxxxxxxxxx}|
  24.                     {xxxxxxxxxxxxxxxxxxxx\n}|
  25.             {t送信先ID5    /xxxxxxxxxxxxxxxxxx\n}|
  26.             {s              / 検索 \n}|
  27.             {t コメント     /xxxxxxxxxxxxxxxxxxxx}|
  28.                     {xxxxxxxxxxxxxxxxxxxx\n}|
  29.             {s              / 設定 / 取消 \n},
  30.             id1,cmT1,id2,cmT2,id3,cmT3,id4,cmT4,id5,cmT5);
  31. %id1    @head(@getline(a,1,1),{\n});    %texM1    @head(@getline(a,2,1),{\n});
  32. %cmT1    @head(@getline(a,3,1),{\n});    %id2    @head(@getline(a,4,1),{\n});
  33. %texM2    @head(@getline(a,5,1),{\n});    %cmT2    @head(@getline(a,6,1),{\n});
  34. %id3    @head(@getline(a,7,1),{\n});    %texM3    @head(@getline(a,8,1),{\n});
  35. %cmT3    @head(@getline(a,9,1),{\n});    %id4    @head(@getline(a,10,1),{\n});
  36. %texM4    @head(@getline(a,11,1),{\n});    %cmT4    @head(@getline(a,12,1),{\n});
  37. %id5    @head(@getline(a,13,1),{\n});    %texM5    @head(@getline(a,14,1),{\n});
  38. %cmT5    @head(@getline(a,15,1),{\n});    %ok    @head(@getline(a,16,1),{\n});
  39.         im({No});    /* 右ｸﾘｯｸ時のﾃﾞﾌｫﾙﾄ値 */
  40.         case    (texM1,
  41.             { 1},{%id1 @HDsearch;TalkID1:=id1;CMt1:=cmT1;
  42.                 im({Yes})});
  43.         case    (texM2,
  44.             { 1},{%id2 @HDsearch;TalkID2:=id2;CMt2:=cmT2;
  45.                 im({Yes})});
  46.         case    (texM3,
  47.             { 1},{%id3 @HDsearch;TalkID3:=id3;CMt3:=cmT3;
  48.                 im({Yes})});
  49.         case    (texM4,
  50.             { 1},{%id4 @HDsearch;TalkID4:=id4;CMt4:=cmT4;
  51.                 im({Yes})});
  52.         case    (texM5,
  53.             { 1},{%id5 @HDsearch;TalkID5:=id5;CMt5:=cmT5;
  54.                 im({Yes})});
  55.         case    (ok,
  56.             { 1},
  57.             {
  58.             TalkID1:=id1;TalkID2:=id2;TalkID3:=id3;
  59.             TalkID4:=id4;TalkID5:=id5;
  60.             CMt1:=cmT1;CMt2:=cmT2;CMt3:=cmT3;
  61.             CMt4:=cmT4;CMt5:=cmT5;im({No})
  62.             },
  63.             { 2},{im({No})}
  64.             )})};
  65. %selID2    {
  66.     %id6 TalkID6;%id7 TalkID7;%id8 TalkID8;%id9 TalkID9;%id10 TalkID10;
  67.     %cmT6 CMt6;%cmT7 CMt7;%cmT8 CMt8;%cmT9 CMt9;%cmT10 CMt10;
  68.     loop    ({
  69.         footnote({自動トークを発送したいID情報を入力して下さい});
  70.         SNDMSG({nyuryo_f.snd});
  71.         %a @plane(
  72.             {c自動トーク発送先ID情報入力(2/4)\n}|
  73.             {t送信先ID6    /xxxxxxxxxxxxxxxxxx\n}|
  74.             {s              / 検索 \n}|
  75.             {t コメント     /xxxxxxxxxxxxxxxxxxxx}|
  76.                     {xxxxxxxxxxxxxxxxxxxx\n}|
  77.             {t送信先ID7    /xxxxxxxxxxxxxxxxxx\n}|
  78.             {s              / 検索 \n}|
  79.             {t コメント     /xxxxxxxxxxxxxxxxxxxx}|
  80.                     {xxxxxxxxxxxxxxxxxxxx\n}|
  81.             {t送信先ID8    /xxxxxxxxxxxxxxxxxx\n}|
  82.             {s              / 検索 \n}|
  83.             {t コメント     /xxxxxxxxxxxxxxxxxxxx}|
  84.                     {xxxxxxxxxxxxxxxxxxxx\n}|
  85.             {t送信先ID9    /xxxxxxxxxxxxxxxxxx\n}|
  86.             {s              / 検索 \n}|
  87.             {t コメント     /xxxxxxxxxxxxxxxxxxxx}|
  88.                     {xxxxxxxxxxxxxxxxxxxx\n}|
  89.             {t送信先ID10    /xxxxxxxxxxxxxxxxxx\n}|
  90.             {s              / 検索 \n}|
  91.             {t コメント     /xxxxxxxxxxxxxxxxxxxx}|
  92.                     {xxxxxxxxxxxxxxxxxxxx\n}|
  93.             {s              / 設定 / 取消 \n},
  94.             id6,cmT6,id7,cmT7,id8,cmT8,id9,cmT9,id10,cmT10);
  95. %id6    @head(@getline(a,1,1),{\n});    %texM6    @head(@getline(a,2,1),{\n});
  96. %cmT6    @head(@getline(a,3,1),{\n});    %id7    @head(@getline(a,4,1),{\n});
  97. %texM7    @head(@getline(a,5,1),{\n});    %cmT7    @head(@getline(a,6,1),{\n});
  98. %id8    @head(@getline(a,7,1),{\n});    %texM8    @head(@getline(a,8,1),{\n});
  99. %cmT8    @head(@getline(a,9,1),{\n});    %id9    @head(@getline(a,10,1),{\n});
  100. %texM9    @head(@getline(a,11,1),{\n});    %cmT9    @head(@getline(a,12,1),{\n});
  101. %id10    @head(@getline(a,13,1),{\n});    %texM10    @head(@getline(a,14,1),{\n});
  102. %cmT10    @head(@getline(a,15,1),{\n});    %ok    @head(@getline(a,16,1),{\n});
  103.         im({No});    /* 右ｸﾘｯｸ時のﾃﾞﾌｫﾙﾄ値 */
  104.         case    (texM6,
  105.             { 1},{%id6 @HDsearch;TalkID6:=id6;CMt6:=cmT6;
  106.                 im({Yes})});
  107.         case    (texM7,
  108.             { 1},{%id7 @HDsearch;TalkID7:=id7;CMt7:=cmT7;
  109.                 im({Yes})});
  110.         case    (texM8,
  111.             { 1},{%id8 @HDsearch;TalkID8:=id8;CMt8:=cmT8;
  112.                 im({Yes})});
  113.         case    (texM9,
  114.             { 1},{%id9 @HDsearch;TalkID9:=id9;CMt9:=cmT9;
  115.                 im({Yes})});
  116.         case    (texM10,
  117.             { 1},{%id10 @HDsearch;TalkID10:=id10;CMt10:=cmT10;
  118.                 im({Yes})});
  119.         case    (ok,
  120.             { 1},
  121.             {
  122.             TalkID6:=id6;TalkID7:=id7;TalkID8:=id8;
  123.             TalkID9:=id9;TalkID10:=id10;
  124.             CMt6:=cmT6;CMt7:=cmT7;CMt8:=cmT8;
  125.             CMt9:=cmT9;CMt10:=cmT10;im({No})
  126.             },
  127.             { 2},{im({No})}
  128.             )})};
  129. %selID3    {
  130.     %id11 TalkID11;%id12 TalkID12;%id13 TalkID13;%id14 TalkID14;
  131.     %id15 TalkID15;
  132.     %cmT11 CMt11;%cmT12 CMt12;%cmT13 CMt13;%cmT14 CMt14;%cmT15 CMt15;
  133.     loop    ({
  134.         footnote({自動トークを発送したいID情報を入力して下さい});
  135.         SNDMSG({nyuryo_f.snd});
  136.         %a @plane(
  137.             {c自動トーク発送先ID情報入力(3/4)\n}|
  138.             {t送信先ID11    /xxxxxxxxxxxxxxxxxx\n}|
  139.             {s              / 検索 \n}|
  140.             {t コメント     /xxxxxxxxxxxxxxxxxxxx}|
  141.                     {xxxxxxxxxxxxxxxxxxxx\n}|
  142.             {t送信先ID12    /xxxxxxxxxxxxxxxxxx\n}|
  143.             {s              / 検索 \n}|
  144.             {t コメント     /xxxxxxxxxxxxxxxxxxxx}|
  145.                     {xxxxxxxxxxxxxxxxxxxx\n}|
  146.             {t送信先ID13    /xxxxxxxxxxxxxxxxxx\n}|
  147.             {s              / 検索 \n}|
  148.             {t コメント     /xxxxxxxxxxxxxxxxxxxx}|
  149.                     {xxxxxxxxxxxxxxxxxxxx\n}|
  150.             {t送信先ID14    /xxxxxxxxxxxxxxxxxx\n}|
  151.             {s              / 検索 \n}|
  152.             {t コメント     /xxxxxxxxxxxxxxxxxxxx}|
  153.                     {xxxxxxxxxxxxxxxxxxxx\n}|
  154.             {t送信先ID15    /xxxxxxxxxxxxxxxxxx\n}|
  155.             {s              / 検索 \n}|
  156.             {t コメント     /xxxxxxxxxxxxxxxxxxxx}|
  157.                     {xxxxxxxxxxxxxxxxxxxx\n}|
  158.             {s              / 設定 / 取消 \n},
  159.         id11,cmT11,id12,cmT12,id13,cmT13,id14,cmT14,id15,cmT15);
  160. %id11    @head(@getline(a,1,1),{\n});    %texM11    @head(@getline(a,2,1),{\n});
  161. %cmT11    @head(@getline(a,3,1),{\n});    %id12    @head(@getline(a,4,1),{\n});
  162. %texM12    @head(@getline(a,5,1),{\n});    %cmT12    @head(@getline(a,6,1),{\n});
  163. %id13    @head(@getline(a,7,1),{\n});    %texM13    @head(@getline(a,8,1),{\n});
  164. %cmT13    @head(@getline(a,9,1),{\n});    %id14    @head(@getline(a,10,1),{\n});
  165. %texM14    @head(@getline(a,11,1),{\n});    %cmT14    @head(@getline(a,12,1),{\n});
  166. %id15    @head(@getline(a,13,1),{\n});    %texM15    @head(@getline(a,14,1),{\n});
  167. %cmT15    @head(@getline(a,15,1),{\n});    %ok    @head(@getline(a,16,1),{\n});
  168.         im({No});    /* 右ｸﾘｯｸ時のﾃﾞﾌｫﾙﾄ値 */
  169.         case    (texM11,
  170.             { 1},{%id11 @HDsearch;TalkID11:=id11;CMt11:=cmT11;
  171.                 im({Yes})});
  172.         case    (texM12,
  173.             { 1},{%id12 @HDsearch;TalkID12:=id12;CMt12:=cmT12;
  174.                 im({Yes})});
  175.         case    (texM13,
  176.             { 1},{%id13 @HDsearch;TalkID13:=id13;CMt13:=cmT13;
  177.                 im({Yes})});
  178.         case    (texM14,
  179.             { 1},{%id14 @HDsearch;TalkID14:=id14;CMt14:=cmT14;
  180.                 im({Yes})});
  181.         case    (texM15,
  182.             { 1},{%id15 @HDsearch;TalkID15:=id15;CMt15:=cmT15;
  183.                 im({Yes})});
  184.         case    (ok,
  185.             { 1},
  186.             {
  187.             TalkID11:=id11;TalkID12:=id12;TalkID13:=id13;
  188.             TalkID14:=id14;TalkID15:=id15;
  189.             CMt11:=cmT11;CMt12:=cmT12;CMt13:=cmT13;
  190.             CMt14:=cmT14;CMt15:=cmT15;im({No})
  191.             },
  192.             { 2},{im({No})}
  193.             )})};
  194. %selID4    {
  195.     %id16 TalkID16;%id17 TalkID17;%id18 TalkID18;%id19 TalkID19;
  196.     %id20 TalkID20;
  197.     %cmT16 CMt16;%cmT17 CMt17;%cmT18 CMt18;%cmT19 CMt19;%cmT20 CMt20;
  198.     loop    ({
  199.         footnote({自動トークを発送したいID情報を入力して下さい});
  200.         SNDMSG({nyuryo_f.snd});
  201.         %a @plane(
  202.             {c自動トーク発送先ID情報入力(4/4)\n}|
  203.             {t送信先ID16    /xxxxxxxxxxxxxxxxxx\n}|
  204.             {s              / 検索 \n}|
  205.             {t コメント     /xxxxxxxxxxxxxxxxxxxx}|
  206.                     {xxxxxxxxxxxxxxxxxxxx\n}|
  207.             {t送信先ID17    /xxxxxxxxxxxxxxxxxx\n}|
  208.             {s              / 検索 \n}|
  209.             {t コメント     /xxxxxxxxxxxxxxxxxxxx}|
  210.                     {xxxxxxxxxxxxxxxxxxxx\n}|
  211.             {t送信先ID18    /xxxxxxxxxxxxxxxxxx\n}|
  212.             {s              / 検索 \n}|
  213.             {t コメント     /xxxxxxxxxxxxxxxxxxxx}|
  214.                     {xxxxxxxxxxxxxxxxxxxx\n}|
  215.             {t送信先ID19    /xxxxxxxxxxxxxxxxxx\n}|
  216.             {s              / 検索 \n}|
  217.             {t コメント     /xxxxxxxxxxxxxxxxxxxx}|
  218.                     {xxxxxxxxxxxxxxxxxxxx\n}|
  219.             {t送信先ID20    /xxxxxxxxxxxxxxxxxx\n}|
  220.             {s              / 検索 \n}|
  221.             {t コメント     /xxxxxxxxxxxxxxxxxxxx}|
  222.                     {xxxxxxxxxxxxxxxxxxxx\n}|
  223.             {s              / 設定 / 取消 \n},
  224.         id16,cmT16,id17,cmT17,id18,cmT18,id19,cmT19,id20,cmT20);
  225. %id16    @head(@getline(a,1,1),{\n});    %texM16    @head(@getline(a,2,1),{\n});
  226. %cmT16    @head(@getline(a,3,1),{\n});    %id17    @head(@getline(a,4,1),{\n});
  227. %texM17    @head(@getline(a,5,1),{\n});    %cmT17    @head(@getline(a,6,1),{\n});
  228. %id18    @head(@getline(a,7,1),{\n});    %texM18    @head(@getline(a,8,1),{\n});
  229. %cmT18    @head(@getline(a,9,1),{\n});    %id19    @head(@getline(a,10,1),{\n});
  230. %texM19    @head(@getline(a,11,1),{\n});    %cmT19    @head(@getline(a,12,1),{\n});
  231. %id20    @head(@getline(a,13,1),{\n});    %texM20    @head(@getline(a,14,1),{\n});
  232. %cmT20    @head(@getline(a,15,1),{\n});    %ok    @head(@getline(a,16,1),{\n});
  233.         im({No});    /* 右ｸﾘｯｸ時のﾃﾞﾌｫﾙﾄ値 */
  234.         case    (texM16,
  235.             { 1},{%id16 @HDsearch;TalkID16:=id16;CMt16:=cmT16;
  236.                 im({Yes})});
  237.         case    (texM17,
  238.             { 1},{%id17 @HDsearch;TalkID17:=id17;CMt17:=cmT17;
  239.                 im({Yes})});
  240.         case    (texM18,
  241.             { 1},{%id18 @HDsearch;TalkID18:=id18;CMt18:=cmT18;
  242.                 im({Yes})});
  243.         case    (texM19,
  244.             { 1},{%id19 @HDsearch;TalkID19:=id19;CMt19:=cmT19;
  245.                 im({Yes})});
  246.         case    (texM20,
  247.             { 1},{%id20 @HDsearch;TalkID20:=id20;CMt20:=cmT20;
  248.                 im({Yes})});
  249.         case    (ok,
  250.             { 1},
  251.             {
  252.             TalkID16:=id16;TalkID17:=id17;TalkID18:=id18;
  253.             TalkID19:=id19;TalkID20:=id20;
  254.             CMt16:=cmT16;CMt17:=cmT17;CMt18:=cmT18;
  255.             CMt19:=cmT19;CMt20:=cmT20;im({No})
  256.             },
  257.             { 2},{im({No})}
  258.             )})};
  259. /*    通信初期値の設定    */
  260. %setPARM{
  261.     var access[5];var ap3[2];var updown[2];var who[5];
  262.     %escon @YesNo(ESCon,{1});
  263.     ap3:=    @YesNo(AP3,{2});
  264.     updown:=@case    (UPDOWN,
  265.             {first},{im({1})},{last},{im({2})},
  266.             {No},{im({3})},,{im({1})});
  267.     %mailred@im(MAILDEL|MAILRED);
  268.     %maildel@case    (mailred,
  269.             {YesYes},{im({1})},{YesNo},{im({1})},
  270.             {NoYes},{im({2})},{NoNo},{im({3})},,{im({2})});
  271.     %jisaR    @YesNo(JISAR,{1});
  272.     %pltmemo@YesNo(PLTmemo,{2});
  273.     access:=ACCESS;
  274.     who:=@case    (WHO,
  275.             {first},{im({1})},{last},{im({2})},
  276.             {No},{im({3})},,{im({3})});
  277.     %mactiv @YesNo(MACTIV,{2});
  278.     %doraend@case(DORAEND,{stopdora},{im({1})},{stopmop},{im({2})},
  279.             {poweroff},{im({3})},{continue},{im({4})},,{im({4})});
  280.     %bestCH@case(sROAD,ROAD,{im({1})},ROAD2,{im({2})},ROAD3,{im({3})},
  281.             ROAD4,{im({4})},,{im({1})});
  282.     loop    ({footnote({通信処理の初期値を設定してください});
  283.         SNDMSG({erande_f.snd});
  284.         %a @plane(
  285.         {c通信処理の初期値を設定してください\n}|
  286.         {rｴｽｹｰﾌﾟｼｰｹﾝｽ表示            / する /しない　\n}|
  287.         {rｱｯﾌﾟ･ﾀﾞｳﾝﾛｰﾄﾞ実行ﾀｲﾐﾝｸﾞ    /最初/最後/しない　\n}|
  288.         {r メールの処理              /既読削除/全部確認/しない\n}|
  289.         {r伝言板を見る               / する /しない　\n}|
  290.         {r｢ｵｰﾄﾊﾟｲﾛｯﾄでｱｸｾｽ｣ﾒﾓをｱｯﾌﾟ  /する  /しない\n}|
  291.         {t通信開始指定時刻[HH:MM]/xxxxx\n}|
  292.         {rアクセスユーザー確認       /最初/最後/しない　\n}|
  293.         {r会員名簿取得               / する /しない  \n}|
  294.         {r自動通信終了後  /DORA終了/MOPT終了/電源切断/DORA継続\n}|
  295.         {r接続チャンネル  /ＣＨ１/ＣＨ２/ＣＨ３/ＣＨ４\n}|
  296.         {s自動トークメッセージ   /セット1/セット2/セット3/セット4 \n}|
  297.         {s                          / 設定 / 取消 },
  298.     escon,updown,maildel,jisaR,pltmemo,access,who,mactiv,doraend,bestCH);
  299.     %escon    @head(@getline(a,1,1),{\n});
  300.     %updown @head(@getline(a,2,1),{\n});
  301.     %maildel@head(@getline(a,3,1),{\n});
  302.     %jisaR    @head(@getline(a,4,1),{\n});
  303.     %pltmemo@head(@getline(a,5,1),{\n});
  304.     access:=@head(@getline(a,6,1),{\n});
  305.     %who     @head(@getline(a,7,1),{\n});
  306.     %mactiv    @head(@getline(a,8,1),{\n});
  307.     %doraend@head(@getline(a,9,1),{\n});
  308.     %bestCH    @head(@getline(a,10,1),{\n});
  309.     %talk    @head(@getline(a,11,1),{\n});
  310.     %ok    @head(@getline(a,12,1),{\n});
  311.         case    (maildel,
  312.             { 1},{MAILDEL:={Yes};MAILRED:={No}},
  313.             { 2},{MAILDEL:={No};MAILRED:={Yes}},
  314.             ,{MAILDEL:={No};MAILRED:={No}});
  315.         case    (pltmemo,
  316.             { 1},{PLTmemo:={Yes}},
  317.             { 2},{PLTmemo:={No}},
  318.             ,{PLTmemo:={No}});
  319.         case    (ok,
  320.             { 1},{
  321.             UPDOWN:=@case(updown,{ 1},{im({first})},
  322.                 { 2},{im({last})},{ 3},{im({No})},
  323.                 ,{im({first})});
  324.             ESCon:=@case(escon,{ 1},{im({Yes})},{ 2},{im({No})},
  325.                 ,{im({Yes})});
  326.             JISAR:=@case(jisaR,{ 1},{im({Yes})},{ 2},{im({No})},
  327.                 ,{im({No})});
  328.             ACCESS:=access;
  329.             WHO:=@case(who,{ 1},{im({first})},
  330.                 { 2},{im({last})},{ 3},{im({No})},
  331.                 ,{im({No})});
  332.             MACTIV:=@case(mactiv,{ 1},{im({Yes})},
  333.                 { 2},{im({No})},,{im({No})});
  334.             DORAEND:=@case(doraend,{ 1},{im({stopdora})},
  335.                 { 2},{im({stopmop})},{ 3},{im({poweroff})},
  336.                 { 4},{im({continue})},,{im({continue})});
  337.         case    (bestCH,
  338.                 { 1},{sROAD:=@im(ROAD);genteiT:=@im(GEN)},
  339.                 { 2},{sROAD:=@im(ROAD2);genteiT:=@im(GEN2)},
  340.                 { 3},{sROAD:=@im(ROAD3);genteiT:=@im(GEN3)},
  341.                 { 4},{sROAD:=@im(ROAD4);genteiT:=@im(GEN4)},
  342.                 ,{sROAD:=@im(ROAD)}
  343.             );
  344.             im({No});
  345.             },{ 2},{im({No})},
  346.             ,
  347.             {
  348.             case    (talk,
  349.                 { 1},{selID1},{ 2},{selID2},
  350.                 { 3},{selID3},{ 4},{selID4}
  351.                 );
  352.             case    (ok={ 0}&&talk={ 0},
  353.                 {Yes},{selID1;selID2;selID3;selID4;im({No})},
  354.                 {No},{im({Yes})});
  355.             });
  356.         });
  357.     };
  358. setPARM;